Public Class CRole
    Dim _intRoleID As Integer
    Dim _intPrivID As Integer
    Dim _strRoleNm As String

    Public Property RoleID() As Integer
        Get
            Return _intRoleID
        End Get
        Set(ByVal value As Integer)
            _intRoleID = value
        End Set
    End Property

    Public Property RoleName() As String
        Get
            Return _strRoleNm
        End Get
        Set(ByVal value As String)
            _strRoleNm = value
        End Set
    End Property

End Class
